(align-region): Added a missing name argument.

diff --git a/lisp/align.el b/lisp/align.el
index ad4bd039661edc04a85913e3a9326b211845338b..388c090a2040c8a3d5fe8f5dd90ad4f548b8f398 100644 (file)
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1,6 +1,6 @@
 ;;; align.el --- align text to a specific column, by regexp
 
-;; Copyright (C) 1999, 2000 Free Sofware Foundation
+;; Copyright (C) 1999, 2000, 2002 Free Sofware Foundation
 
 ;; Author: John Wiegley <johnw@gnu.org>
 ;; Keywords: convenience languages lisp
@@ -1417,7 +1417,7 @@ aligner would have dealt with are."
                              (if name
                                  (message
                                   "Aligning `%s' (rule %d of %d) %d%%..."
-                                  rule-index rule-count
+                                  name rule-index rule-count
                                   (/ (* (- (point) real-beg) 100)
                                      (- end-mark real-beg)))
                                (message